Imports System
Imports Microsoft.VisualBasic
  Partial Class searchVehicle_aspx_vb
    Inherits Functions
    Public strGrey As String
    Public rowNumber As Integer 
    Public subDo As String 
    Public country As Object ' System.Object
    Public regnr As Object 
    Public vinNumber As Object 
    Public contractNumber As Object 
    Public brand As Object ' System.Object
    Public brandID As Object 
    Public model As Object ' System.Object
    Public partnerID As Object 
    Public partnerName As Object ' System.Object
    Public sqlCountryID As String 
    Public sqlPartnerID As String 
    Public sqlBrandID As String 
    Public sqlRegnr As String 
    Public sqlVinNumber As String 
    Public sqlContractNumber As String 
    Public vehicleID As Object ' System.Object
    Public product As Object ' System.Object
    Public price As Object 
    Public dealer As Object ' System.Object
    Public countryCurrency As Object 
    Public invoiceID As Object 
    Public tblVehicleDate As Object ' System.Object
    Public sqlTop50 As String 
    Public strTop50 As Object 
    Public vehicleCount As Object ' System.Object
    Public status As String 
    Public completed As Object ' System.Object
    Public active As Object ' System.Object
    Public sql As String
    Public brandi As String
    Public modeli As String
    Public Recset2 As ADODB.Recordset

    Public Function CleanString(base As String) As String
        If Len(base) > 0 Then
            base = Trim(base)
            base = Replace(CStr(base), "'", "")
            base = Replace(CStr(base), """", "")
            base = Replace(CStr(base), "<", "")
            base = Replace(CStr(base), ">", "")
            base = Replace(CStr(base), "=", "")
        End If
        CleanString = base
    End Function


End Class
Public Class ResultRec
    Public vehicleid As String
    Public partnerid As String
    Public regnr As String
    Public vinNumber As String
    Public contractNumber As String
    Public tblVehicleDate As String
    Public completed As String
    Public active As String
    Public product As String
    Public brand As String
    Public model As String
    Public dealer As String
    Public productID As String
    Public Country As String


End Class
